home *** CD-ROM | disk | FTP | other *** search
- object TimeForm: TTimeForm
- Left = 192
- Top = 110
- Width = 348
- Height = 249
- Caption = 'Network Time Demo'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object PaintBox1: TPaintBox
- Left = 0
- Top = 41
- Width = 162
- Height = 162
- end
- object Label2: TLabel
- Left = 176
- Top = 64
- Width = 4
- Height = 18
- Font.Color = clNavy
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 176
- Top = 96
- Width = 4
- Height = 18
- Font.Color = clNavy
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 340
- Height = 41
- Align = alTop
- TabOrder = 0
- object Label1: TLabel
- Left = 8
- Top = 14
- Width = 34
- Height = 13
- Caption = 'Server:'
- end
- object ConnectButton: TSpeedButton
- Left = 272
- Top = 8
- Width = 25
- Height = 25
- Hint = 'Connect'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031
- 00333773F77777FF7733331000909000133333377737F777FF33330098F0F890
- 0333337733F733F77F33370980FFF08907333373373F373373F33099FF0FFFF9
- 903337F3F373F33FF7F33090FFF0FF00903337F73337F37737F33099FFF0FFF9
- 9033373F33F7F3F33733370980F0F0890733337FF737F7337F33330098F0F890
- 03333F77FF3733377FFF000009999900000377777FFFFF77777F088700000008
- 77037F3377777773337F088887707888870373F3337773F33373307880707088
- 7033373FF737F73FF733337003303300733333777337FF777333333333000333
- 3333333333777333333333333333333333333333333333333333}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = ConnectButtonClick
- end
- object CancelButton: TSpeedButton
- Left = 304
- Top = 8
- Width = 25
- Height = 25
- Hint = 'Cancel'
- Enabled = False
- Glyph.Data = {
- DE010000424DDE01000000000000760000002800000024000000120000000100
- 0400000000006801000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333333333333333000033338833333333333333333F333333333333
- 0000333911833333983333333388F333333F3333000033391118333911833333
- 38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
- 911118111118333338F3338F833338F3000033333911111111833333338F3338
- 3333F8330000333333911111183333333338F333333F83330000333333311111
- 8333333333338F3333383333000033333339111183333333333338F333833333
- 00003333339111118333333333333833338F3333000033333911181118333333
- 33338333338F333300003333911183911183333333383338F338F33300003333
- 9118333911183333338F33838F338F33000033333913333391113333338FF833
- 38F338F300003333333333333919333333388333338FFF830000333333333333
- 3333333333333333333888330000333333333333333333333333333333333333
- 0000}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = CancelButtonClick
- end
- object ServerComboBox: TComboBox
- Left = 48
- Top = 10
- Width = 217
- Height = 21
- ItemHeight = 13
- Items.Strings = (
- 'time-a.nist.gov'
- 'time-b.nist.gov'
- 'time-nw.nist.gov'
- 'time-a.timefreq.bldrdoc.gov'
- 'time-b.timefreq.bldrdoc.gov'
- 'utcnist.colorado.edu')
- TabOrder = 0
- Text = 'ServerComboBox'
- end
- end
- object StatusBar: TStatusBar
- Left = 0
- Top = 203
- Width = 340
- Height = 19
- Panels = <>
- SimplePanel = True
- end
- object msClientSocket1: TmsClientSocket
- OnConnected = msClientSocket1Connected
- OnDisconnected = msClientSocket1Disconnected
- Port = 37
- OnConnecting = msClientSocket1Connecting
- Left = 280
- Top = 160
- end
- end
-